1 IF A=0 THEN A=1:LOAD"CHR V2",8,1
2 IF A=1 THEN A=2:LOAD"VISION",8,1
3 POKE 56,104:CLR
5 REM *** ADDING DECIMALS ***
9 POKE 53265,PEEK(53265) AND 239
10 POKE 53280,0:POKE 53281,0
11 POKE 53272,(PEEK(53272)AND 15)OR 176
12 POKE 56576,(PEEK(56576)AND252)OR 2
13 POKE 53272,(PEEK(53272)AND 240)OR 12
14 POKE 648,108:PRINT"[147]";:POKE 53265,PEEK(53265) OR 16
15 POKE 28664,160:POKE 28665,161
16 FOR Z=54272 TO 54296:POKE Z,.:NEXT
17 GOSUB 3500:POKE 198,0
18 GET A$:IF A$<>" " THEN 18
19 GN$="[193]DDING [196]ECIMALS"
20 FOR Z=54272 TO 54296:POKE Z,.:NEXT:FORD=1TO6:READRE$(D):NEXT
25 DATA "[199]REAT!","[198]ANTASTIC!","[211]UPER!","[217]OU'VE GOT IT!"
26 DATA "[217]ES! [217]ES! [217]ES!","[212]HAT'S [199]REAT!"
28 FORX=0TO7:READA:POKE30936+X,A:POKE31056+X,PEEK(29320+X):NEXT
30 DATA 0,128,192,224,240,224,192,128
32 FORX=0TO15:READA:POKE30944+X,A:NEXT
34 DATA 255,127,63,31,15,31,63,127,255,254,252,248,240,248,252,254
50 DIMNM$(15):FORD=0TO10:READNM$(D):NEXT
52 DATA "[172][192][187][157][157][157][221] [221][157][157][157][188][192][190]"
54 DATA " [174][157][221][157][157] [177] "
56 DATA "[172][192][187][157][157][157][172][192][190][157][157][157][173][192][189]"
58 DATA "[172][192][187][157][157][192][179][157][157][157][188][192][190]"
60 DATA "[174][157][173][219][157][177]"
62 DATA "[176][192][187][157][157][157][173][192][187][157][157][157][173][192][190]"
64 DATA"[172][192][187][157][157][157][171][192][187][157][157][157][188][192][190]"
66 DATA"[176][192][174][157][157][172][190][157][157][177]"
68 DATA"[172][192][187][157][157][157][171][192][179][157][157][157][188][192][190]"
70 DATA"[172][192][187][157][157][157][188][192][179][157][157][157][188][192][190]"
74 DATA"[223][169][146][157][157]\][157][157][169][223]"
80 FORA=6TO2STEP-1:READPL$(A):NEXTA
85 DATA "THOUSANDTHS","HUNDREDTHS","TENTHS","","ONES"
95 GOTO 2000
100 REM *** ZIPPY TITLES ***
105 REM LN=LINE# TO PLACE TEXT
110 POKE646,11:LETLC=(23-LN)/3
115 TB=(40-LEN(TX$))/2
120 FORD=23TOLNSTEP-1:PRINT"";
125 FORD1=1TOD:PRINT"";:NEXTD1
130 IFD/6=INT(D/6)THEN GOSUB165
135 PRINTTAB(TB)TX$
140 NEXTD
145 FORD=23TOLN+1STEP-1:PRINT"";
150 FORD1=1TOD:PRINT"";:NEXT
155 PRINTTAB(11)"                          "
160 NEXT:RETURN
165 IFPEEK(646)=15THENPOKE646,1
170 IFPEEK(646)=12THENPOKE646,15
175 IFPEEK(646)=11THENPOKE646,12
180 RETURN
200 REM ***        CLEAR          ***
210 FOR ER=LNTO24:POKE 781,ER:SYS 59903:NEXT:RETURN
300 REM
305 REM ***     REWARD SOUND      ***
310 REM
320 POKE 53280,2:POKE 53281,2
325 S=54272:POKES+24,7:POKES+1,110:POKES+5,9:POKES+6,10:POKES+4,17:POKES+4,16
330 FOR D=1 TO 25:NEXT
332 POKE 53280,5:POKE 53281,5
335 S=54279:POKES+24,7:POKES+1,110:POKES+5,9:POKES+6,10:POKES+4,17:POKES+4,16
340 FOR D=1 TO 25:NEXT
342 POKE 53280,6:POKE 53281,6
345 S=54286:POKES+24,7:POKES+1,110:POKES+5,9:POKES+6,10:POKES+4,17:POKES+4,16
350 FOR D=1 TO 25:NEXT
352 POKE 53280,0:POKE 53281,0
355 SC=SC+1
365 RETURN
405 REM *** GET NUMERIC INPUT FROM ***
410 REM ***     USER FOR USE IN    ***
415 REM ***     WORKING PROBLEM    ***
420 REM
425 OPEN1,0:INPUT#1,J$:CLOSE1,0
430 J=VAL(J$)
435 RETURN
480 REM *** PRINT SCREEN HEADER ***
481 PRINT"[147]":POKE53287,2:POKE53288,12:POKE53248,40:POKE53249,56:POKE 53250,40
482 POKE 53251,56
485 FORX=0TO1:POKE53277,PEEK(53277)OR(2^X):POKE 53271,PEEK(53271)OR(2^X)
490 POKE 53269,PEEK(53269)OR(2^X):NEXTX
495 RETURN
499 FORX=0TO2:POKE53269,PEEK(53269)AND(255-2^X):NEXTX:RETURN
500 REM ** SHORT WRONG SOUND **
505 N$="028":S=54272:POKES+6,96:POKES+24,15
510 FORQ=1TO6 STEP3
515 POKES+1,VAL(MID$(N$,Q,2)):POKES+4,33
520 FORJW=1TOT*VAL(MID$(N$,Q+2,1)):NEXT:FORR=1TO100:NEXT
525 POKES+4,0:NEXT:RETURN
600 REM
605 REM *** GENERAL PURPOSE DELAY ***
610 REM
615 FOR D=1 TO 1300:NEXT
620 RETURN
625 RETURN
800 REM *** TITLE BOX ***
805 PRINT"";
810 PRINT"[159][192][157][157][156][183][183][145][145]";
815 FORX=1TO23:PRINT"[154][175][157][159][192][157][156][183][145][145]";:NEXT
820 PRINT"[154][175][175][157][157][159][192]":RETURN
850 PRINT"[154]";:GOTO 855
851 PRINT"[150]";
855 PRINT"";
860 PRINT"   [172][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][187]"
865 FORJW=1TO3:PRINT"   [221][221]":NEXT
870 PRINT"   [188][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][190]"
880 RETURN
900 PRINT"";:FORD=1TO24:PRINT"";:NEXT
905 PRINT"[159][169][208]RESS [210][197][212][213][210][206] TO [195]ONTINUE OR _ TO [197]XIT[146][169][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][145][145][145]"
925 S=54272:POKES+24,7:POKES+1,110:POKES+5,9:POKES+6,10:POKES+4,17:POKES+4,16
927 POKE 198,0
930 GETRC$:IFRC$=""THEN930
940 IFRC$="_"THENCP=CP+1:GOTO 4000
950 IFRC$<>CHR$(13)THEN930
960 RETURN
980 PRINT"";:FORJG=1TOY:PRINT"";:NEXTJG:PRINTTAB(X);TX$;:RETURN
990 X=(40-LEN(TX$))/2:GOTO980
1100 REM *** WRONG SOUND ***
1105 N$="042034":S=54272:POKES+6,96:POKES+24,15
1110 FORQ=1TO6 STEP3
1115 POKES+1,VAL(MID$(N$,Q,2)):POKES+4,33
1120 FORJW=1TOT*VAL(MID$(N$,Q+2,1)):NEXT:FORR=1TO300:NEXTR
1125 POKES+4,0:NEXTQ:RETURN
1200 REM *** CHANGE COLOR OF NUMBER ***
1205 CO=3:GOTO 1215
1210 CO=1
1215 B1=55296:B2=B1+X+(Y*40)
1220 FORR=1TO3:FORQ=0TO2:POKEB2+Q,CO:NEXTQ:B2=B2+40:NEXTR:RETURN
1300 REM *** PLACE NUMBER AT X,Y ***
1305 NU$=STR$(NU):FORAA=1TOLEN(NU$)
1310 TP$=MID$(NU$,AA,1):IFTP$=" "THEN1325
1315 IFTP$="."THENTX$="*":Y=Y+2:GOSUB980:Y=Y-2:X=X+1:GOTO1325
1320 TX$=NM$(VAL(TP$)):GOSUB980:X=X+3
1325 NEXTAA:RETURN
1400 REM *** PLACE NUMBER SLOWLY ***
1404 NU$=STR$(NU)
1405 XX=X:PRINT"[159]";:FORAA=LEN(NU$)TO1STEP-1
1410 TP$=MID$(NU$,AA,1):IFTP$=" "THEN1425
1415 IFTP$="."THENTX$="*":X=X+2:Y=Y+2:GOSUB980:Y=Y-2:X=X-3:GOTO1422
1420 TX$=NM$(VAL(TP$)):GOSUB980:X=X-3
1422 FORDD=1TO300:NEXTDD
1425 NEXTAA:FORDD=1TO300:NEXTDD
1430 FORX=XXTO(XX-(3*LEN(NU$)))STEP-3:GOSUB1210:NEXT:PRINT"";:RETURN
1500 REM *** OPTION 2 INPUT ROUTINE ***
1504 NU$=STR$(NU)
1505 OT$="":FORTP=LEN(NU$)TO2STEP-1:WA=0
1507 POKE 198,0
1510 GETA$:IFA$=""THENTX$="[159][176][192][174][157][157][157][221] [221][157][157][157][173][192][189]":GOSUB980
1511 IFA$=""THENTX$="   [157][157][157]   [157][157][157]   ":GOSUB980:GOTO 1510
1512 A=VAL(A$):IFMID$(NU$,TP,1)="."ANDA$<>"."ANDOP=3THEN1510
1513 IFA$="."THEN1517
1515 IFA<0ORA>9THEN1510
1516 IFOP=3THEN1526
1517 IFA$=MID$(NU$,TP,1)THEN1525
1518 GOSUB500:WA=WA+1:IFWA=3THEN1525
1520 GOTO 1510
1525 IFA$="."THENTX$="*":Y=Y+2:X=X+2:GOSUB980:X=X-3:Y=Y-2:GOTO1527
1526 IFA$<>"."ANDOP=2THENTX$=NM$(VAL(MID$(NU$,TP,1))):GOSUB980:X=X-3
1527 IFA$<>"."ANDOP=3THENTX$=NM$(VAL(A$)):GOSUB980:X=X-3
1528 AX=X:AY=Y:IFTP=LEN(NU$)ANDCN$<>""THENTX$=CN$:X=30:Y=5:GOSUB980:CN$=""
1529 X=AX:Y=AY
1530 OT$=A$+OT$:NEXT:RETURN
2000 REM
2005 REM ***   MAIN PROGRAM   ***
2010 REM
2015 PRINT"[147]";:GOSUB480:LN=1:TX$="[193]DDING [196]ECIMALS":GOSUB 100:GOSUB800
2020 X=0:Y=10
2025 TX$="[196]O YOU WANT INSTRUCTIONS? [145][164][164][164][164][164][157][157][157][157][157][165][217]/[206][167][157][157][157][157][157][163][163][163][163][163][145] "
2027 TX$=TX$+"       [157][157][157][157][157][157][157]":GOSUB 980
2030 MX=1:GOSUB3000:I$=T$:IFI$="Y"THENGOSUB30000
2035 IFI$<>"N"ANDI$<>"Y"THENPRINT"[145]";:GOTO2025
2038 LN=5:GOSUB200
2040 Y=10:X=0:TX$="[215]HAT IS YOUR NAME? "
2045 GOSUB 980:MX=16:GOSUB 3000:NN$=T$:GOSUB200
2050 X=0:Y=10:TX$="[215]HICH OPTION DO YOU WANT:"
2053 GOSUB 980
2055 TX$="   1.  [196]EMONSTRATION.":Y=12:GOSUB980
2060 TX$="   2.  [215]ORK [197]XAMPLES WITH [200]ELP.":Y=13:GOSUB980
2065 TX$="   3.  [211]TEP-BY-[211]TEP [208]ROBLEMS.":Y=14:GOSUB980
2068 TX$="   4.  [193]NSWERS [207]NLY.":Y=15:GOSUB980
2069 TX$="[217]OUR CHOICE? [145][164][164][164][164][164][157][157][157][157][157][165]1-4[167][157][157][157][157][157][163][163][163][163][163][145] ":Y=17
2070 GOSUB980:MX=1:GOSUB3000
2071 OP=VAL(T$):IFOP>1THENNP$="[145][164][164][164][164][164][164][157][157][157][157][157][157][165]5-20[167][157][157][157][157][157][157][163][163][163][163][163][163][145] ":MX=2
2072 IFOP=1THENNP$="[145][164][164][164][164][164][157][157][157][157][157][165]1-5[167][157][157][157][157][157][163][163][163][163][163][145] ":MX=1
2073 IFOP<>1ANDOP<>2ANDOP<>3ANDOP<>4THEN2070
2074 TX$="[200]OW MANY PROBLEMS? "+NP$:Y=19:GOSUB980:GOSUB3000:NP=VAL(T$)
2075 IFOP=1THEN2078
2076 IFNP<5ORNP>20THEN2074
2077 GOTO 2079
2078 IFNP<1ORNP>5THEN2074:GOSUB900
2079 FORCP=1TONP:LN=5:GOSUB200
2080 L2=INT(RND(1)*3)+3:W1=INT(RND(1)*3)+1:W2=INT(RND(1)*5)+1
2082 D1=VAL(LEFT$(STR$(RND(.999)),6))+W1:D1$=STR$(D1):IFD1>6THEN2082
2084 D2=VAL(LEFT$(STR$(RND(.999)),L2))+W2:D2$=STR$(D2):IFD2>6THEN2084
2086 IFD1<=0ORD2<=0THEN2080
2087 IFD1=INT(D1)ORD2=INT(D2)THEN2080
2088 AN=D1+D2:AN$=STR$(AN):IFLEN(AN$)>6THEN2080
2090 TX$="[193]DD"+D1$+" AND"+D2$+".":Y=7:X=0:IFOP=4THENGOSUB990:GOTO 2098
2091 GOSUB980:GOSUB600
2098 ONOPGOSUB2100,2200,2400,2300:GOSUB900:NEXTCP:GOTO4000
2100 REM *** DEMONSTRATION ***
2105 TX$="[204]INE UP THE":X=0:Y=9:GOSUB980:TX$="DECIMAL POINTS.":Y=10:GOSUB980
2110 NU=D1:X=25:Y=6:GOSUB1300:GOSUB600
2115 NU=D2:X=25:Y=9:GOSUB1300:GOSUB600
2120 TX$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":X=24:Y=12:GOSUB980:CN=0
2125 FORP=6TO2STEP-1
2127 CC=VAL(MID$(D1$,P,1))+VAL(MID$(D2$,P,1))+CN
2130 XX=X:YY=Y:TX$="                   ":Y=12:X=0:GOSUB980:Y=13:GOSUB980
2135 IFP=3THENNEXTP
2140 TX$="[193]DD THE":Y=12:GOSUB980:TX$=PL$(P)+" COLUMN.":Y=13:GOSUB980:X=XX:Y=YY
2150 Y=13:X=17+(3*P):IFP=2THENX=25
2151 YY=Y:Y=6:GOSUB1200:Y=9:GOSUB1200:Y=13:GOSUB1200:Y=YY:GOSUB600
2155 IFP=2THENX=25:NU=CC:PRINT"[159]":GOSUB1300:PRINT"":GOTO2178
2160 Y=13:X=17+(3*P):NU=CC:IFCC<10THENPRINT"[159]":GOSUB1300:PRINT"":CN=0:GOTO2178
2165 NU=VAL(RIGHT$(STR$(CC),1)):PRINT"[159]":GOSUB1300:TX$=LEFT$(STR$(CC),2):XX=X:YY=Y
2170 PRINT"":CN=VAL(TX$):X=14+(3*P):IFP=4THENX=X-1
2175 Y=5:GOSUB980:X=XX:Y=YY
2178 XX=X:YY=Y:X=17+(3*P):IFP=2THENX=25
2179 Y=6:GOSUB1210:Y=9:GOSUB1210:Y=13:GOSUB1210:Y=YY:X=XX
2180 NEXT P
2185 TX$="[208]LACE THE":X=0:Y=15:GOSUB980:TX$="DECIMAL POINT.":Y=16:GOSUB980
2190 TX$="[150]*":X=28:Y=15:GOSUB980:GOSUB600:TX$="*":GOSUB980
2195 RETURN
2200 REM *** WITH HELP ***
2205 TX$="[204]INE UP THE":X=0:Y=9:GOSUB980:TX$="DECIMAL POINTS.":Y=10:GOSUB980
2210 NU=D1:X=25:Y=6:GOSUB1300:GOSUB600
2215 NU=D2:X=25:Y=9:GOSUB1300:GOSUB600
2220 TX$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":X=24:Y=12:GOSUB980:CN=0
2225 FORP=6TO2STEP-1
2227 CC=VAL(MID$(D1$,P,1))+VAL(MID$(D2$,P,1))+CN
2230 XX=X:YY=Y:TX$="                   ":Y=12:X=0:GOSUB980:Y=13:GOSUB980
2235 IFP=3THENNEXTP
2240 TX$="[193]DD THE":Y=12:GOSUB980:TX$=PL$(P)+" COLUMN.":Y=13:GOSUB980:X=XX:Y=YY
2250 Y=13:X=17+(3*P):IFP=2THENX=25
2251 YY=Y:Y=6:GOSUB1200:Y=9:GOSUB1200:Y=13:GOSUB1200:Y=YY
2255 IFP=2THENX=25:NU=CC:PRINT"[159]":GOSUB1500:PRINT"":GOTO2278
2260 Y=13:X=17+(3*P):NU=CC:IFCC<10THENPRINT"[159]":GOSUB1500:PRINT"":CN=0:GOTO2278
2265 NU=VAL(RIGHT$(STR$(CC),1)):PRINT"[159]":GOSUB1500:TX$=LEFT$(STR$(CC),2):XX=X:YY=Y
2270 PRINT"":CN=VAL(TX$):X=14+(3*P):IFP=4THENX=X-1
2275 Y=5:GOSUB980:X=XX:Y=YY
2278 XX=X:YY=Y:X=17+(3*P):IFP=2THENX=25
2279 Y=6:GOSUB1210:Y=9:GOSUB1210:Y=13:GOSUB1210:Y=YY:X=XX
2280 NEXT P
2285 TX$="[208]LACE THE":X=0:Y=15:GOSUB980:TX$="DECIMAL POINT.":Y=16:GOSUB980
2290 TX$="[150]*":X=28:Y=15:GOSUB980:GOSUB600:TX$="*":GOSUB980
2295 RETURN
2300 REM *** ANSWER ONLY ***
2305 TX$="[197]NTER YOUR ANSWER: ":Y=10:X=8:GOSUB980:MX=6:GOSUB3000:J=VAL(T$)
2310 IFABS(J-AN)>=.0009 THEN2315
2311 TX$=RE$(INT(RND(1)*6)+1):Y=14:IFOP=3THENY=18
2312 GOSUB990:GOSUB300:RETURN
2315 GOSUB1100:TX$="[212]HE CORRECT ANSWER IS"+AN$:Y=14:IFOP=3THENY=18
2317 GOSUB 990
2320 TX$="[211]HALL [201] SHOW YOU THIS ONE? [145][164][164][164][164][164][157][157][157][157][157][165][217]/[206][167][157][157][157][157][157][163][163][163][163][163][145] ":Y=16:X=3
2323 IFOP=3THENY=20
2325 GOSUB980:MX=1:GOSUB3000:IFT$<>"Y"AND T$<>"[217]" THENRETURN
2330 LN=5:GOSUB 200
2335 TX$="[193]DD"+D1$+" AND"+D2$+".":Y=7:X=0:GOSUB980:GOTO 2100
2400 REM *** STEP BY STEP ***
2405 TX$="[204]INE UP THE":X=0:Y=9:GOSUB980:TX$="DECIMAL POINTS.":Y=10:GOSUB980
2410 NU=D1:X=25:Y=6:GOSUB1300:GOSUB600
2415 NU=D2:X=25:Y=9:GOSUB1300:GOSUB600
2420 TX$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":X=24:Y=12:GOSUB980:CN=0
2425 JJ$=" ":FORP=6TO2STEP-1:JJ$=OT$+JJ$
2427 CC=VAL(MID$(D1$,P,1))+VAL(MID$(D2$,P,1))+CN
2430 XX=X:YY=Y:TX$="                   ":Y=12:X=0:GOSUB980:Y=13:GOSUB980
2435 IFP<>3THEN2440
2437 TX$="[208]LACE THE":X=0:Y=12:GOSUB980:TX$="DECIMAL POINT.":Y=13:GOSUB980
2438 X=26:NU$=".":GOSUB1505:NEXTP
2440 TX$="[193]DD THE":Y=12:GOSUB980:TX$=PL$(P)+" COLUMN.":Y=13:GOSUB980:X=XX:Y=YY
2450 Y=13:X=17+(3*P):IFP=2THENX=25
2451 YY=Y:Y=6:GOSUB1200:Y=9:GOSUB1200:Y=13:GOSUB1200:Y=YY
2455 IFP=2THENX=25:NU=CC:PRINT"[159]":GOSUB1500:PRINT"":GOTO2478
2460 Y=13:X=17+(3*P):NU=CC:IFCC<10THENPRINT"[159]":GOSUB1500:PRINT"":CN=0:GOTO2478
2465 NU=VAL(RIGHT$(STR$(CC),1)):PRINT"[159]":GOSUB1500:TX$=LEFT$(STR$(CC),2):XX=X:YY=Y
2470 PRINT"":CN=VAL(TX$):X=14+(3*P):IFP=4THENX=X-1
2475 Y=5:GOSUB980:X=XX:Y=YY
2478 XX=X:YY=Y:X=17+(3*P):IFP=2THENX=25
2479 Y=6:GOSUB1210:Y=9:GOSUB1210:Y=13:GOSUB1210:Y=YY:X=XX
2480 NEXT P:JJ$=OT$+JJ$
2485 IFABS(VAL(JJ$)-AN)<.0009THENGOTO2311
2490 GOTO 2315
2495 RETURN
3000 T$="":PRINT"[164]";:POKE 198,0
3010 GET A$:IF A$="" THEN 3010
3020 IF A$=CHR$(13) THEN PRINTCHR$(20):RETURN
3030 IF A$=CHR$(20) AND T$="" THEN 3010
3040 IF A$=CHR$(20) THEN PRINTA$A$"[164]";:T$=LEFT$(T$,LEN(T$)-1):GOTO 3010
3045 IF A$="[140]" THEN 5000
3050 IF A$<" " OR A$>"[218]" THEN 3010
3060 IF A$>"Z" AND A$<"[193]" THEN 3010
3070 IF A$=CHR$(34) THEN 3010
3080 IF LEN(T$)=MX THEN 3010
3090 PRINTCHR$(20)A$"[164]";
3100 T$=T$+A$:GOTO 3010
3500 PRINT"[142]";:GOSUB 480:LN=1:TX$="VISION SOFTWARE":GOSUB 100
3510 LN=2:TX$="AND UPTIME PRESENTS":GOSUB 100
3520 GOSUB 3800
3530 PRINTTAB(6)"[158] [190][188][146]  [161][172][188][146]  [161][172][188][146]  [188] [146][190] [161][188][146]  [146] [172][172][187][146][187]"
3540 PRINTTAB(6)"[161][188][190][146][161] [161][146][161][161][146][161] [161][146][161][161][146][161]   [146]  [161] [188] [146] [161][146][161][162][187] "
3550 PRINTTAB(6)"[161][146][161][161][146][161] [161][146][161][190][146][190] [161][146][161][190][146][190]   [146]  [161][146][161][187] [146] [161][146][161][161][146][161] "
3560 PRINTTAB(6)"[188][190][188][190] [188][162][146][190]  [188][162][146][190]  [188][162][146][190] [188][190] [162][146]  [162][162][146] "
3570 PRINT
3580 PRINT" [161][172][188][146]  [161][172][162][146][190] [172][172][187][146][187] [188] [146][190] [161][188][146][172] [146]  [190][188][146]  [161][146][161]   [172][172][187][146][187]"
3590 PRINT" [161][146][161][161][146][161] [161][188][146][187]  [161][146][161]     [146]  [161][172][172] [146] [161][188][190][146][161] [161][146][161]   [188][188][146][162]"
3600 PRINT" [161][146][161][190][146][190] [161][146][161]   [161][146][161][172][187]   [146]  [161][146][161]  [146] [161][146][161][161][146][161] [161][146][161]   [172][187][161][146][161]"
3610 PRINT" [188][162][146][190]  [188][162][162][146][190]  [162][162][146]  [188][162][146][190] [188][190] [162][146] [188][190][188][190] [188][162][162][146][190]  [162][162]"
3700 POKE 198,0
3710 PRINTTAB(7)"[159]PRESS SPACEBAR TO CONTINUE"
3720 PRINT"[151]    PUBLISHED BY SOFTDISK PUBLISHING"
3750 RETURN
3800 REM *** TITLE BOX ***
3810 PRINT"";
3820 PRINT"[159][192][157][157][156][183][183][145][145]";
3830 FORX=1TO23:PRINT"[154][175][157][159][192][157][156][183][145][145]";:NEXT
3840 PRINT"[154][175][175][157][157][159][192]":RETURN
4000 REM
4005 REM *** PRINT SCORE AND GIVE ***
4010 REM ***  OPTION OF PLAYING   ***
4015 REM ***        AGAIN         ***
4020 REM
4025 CP=CP-1:LN=5:GOSUB200
4030 IFOP<3THEN4062
4035 TX$="[217]OU GOT"+STR$(SC)+" RIGHT OUT OF"+STR$(CP)+" PROBLEMS."
4037 Y=10:X=0:GOSUB980
4038 SC=INT((SC/CP)*100):IFSC>100THENSC=100
4040 TX$="[212]HAT MAKES"+STR$(SC)+" PERCENT.":Y=12:X=0:GOSUB980
4062 TX$="[196]O YOU WANT TO PLAY AGAIN? [165][217]/[206][167][145][157][157][157][157][157][164][164][164][164][164][157][157][157][157][157][163][163][163][163][163][145]":SC=0
4065 X=0:Y=15:GOSUB980:MX=1:GOSUB3000
4067 IFT$="Y"THENLN=5:GOSUB200:GOTO2050
4070 TX$="[196]OES ANYONE ELSE WANT TO PLAY? [165][217]/[206][167][145][157][157][157][157][157][164][164][164][164][164][157][157][157][157][157][163][163][163][163][163][145]"
4075 X=0:Y=18:GOSUB980:MX=1:GOSUB3000:IFT$="Y"THEN2038
4080 TX$="[199]OODBYE!":Y=19:GOSUB990
4085 GOSUB499:CLR:SYS 8*4096+4:END
5000 GOSUB 480:LN=1:TX$="[210]ETURN TO [213]P[212]IME":GOSUB 100
5010 GOSUB 800
5020 GOTO 4062
30000 REM
30005 REM *** INSTRUCTIONS ***
30010 REM
30015 GOSUB480:LN=1:TX$="[201] N S T R U C T I O N S":GOSUB 100:GOSUB800
30020 PRINT"    [204]EARN TO ADD DECIMAL NUMBERS"
30025 PRINT"WITH EASE!  [212]HERE ARE FOUR WAYS TO USE"
30030 PRINT"THIS PROGRAM:"
30038 PRINT"                [207]PTIONS[157][157][157][157][157][157][157][163][163][163][163][163][163][163]"
30040 PRINT"          1.  [196]EMONSTRATION."
30042 PRINT"          2.  [215]ORK EXAMPLES WITH HELP."
30043 PRINT"          3.  [211]TEP-BY-STEP PROBLEMS."
30044 PRINT"          4.  [193]NSWERS ONLY."
30045 GOSUB 33000
30055 PRINT"      [207]PTION 1:  [196]EMONSTRATION."
30056 PRINT"      [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
30060 PRINT"    [201] WILL SHOW YOU HOW TO ADD TWO"
30062 PRINT"DECIMAL NUMBERS.  [201] WILL SET UP THE"
30065 PRINT"PROBLEM AND WORK IT FOR YOU,"
30070 PRINT"EXPLAINING EACH STEP AS [201] GO."
30080 GOSUB 33000
30090 PRINT"  [207]PTION 2: [215]ORK EXAMPLES WITH HELP."
30091 PRINT"  [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
30095 PRINT"    [217]OU MUST ADD TWO DECIMAL NUMBERS"
30100 PRINT"THAT [201] WILL GIVE YOU.  [215]E WILL WORK"
30105 PRINT"THE PROBLEM TOGETHER, AND [201] WILL"
30110 PRINT"GUIDE YOU THROUGH EACH STEP."
30115 GOSUB 33000
30125 PRINT"       [207]PTION 3: [211]TEP-BY-STEP."
30126 PRINT"       [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
30130 PRINT"    [207]N OPTION 3, [201] WILL ALLOW YOU "
30135 PRINT"TO WORK THE WHOLE PROBLEM BY YOURSELF"
30140 PRINT"FOR PRACTICE.  [201]F YOUR FINAL ANSWER"
30142 PRINT"IS WRONG, [201] WILL WORK THE PROBLEM WITH"
30145 PRINT"YOU.  [201] WILL KEEP YOUR SCORE ON THIS"
30150 PRINT"OPTION.":GOSUB33000
30151 PRINT"      [207]PTION 4: [193]NSWERS ONLY."
30152 PRINT"      [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
30153 PRINT"   [215]ITH ANSWERS ONLY, YOU MUST"
30154 PRINT"FIND THE ANSWER ALL BY YOURSELF,"
30155 PRINT"WITHOUT MY HELP.  [217]OU MAY NEED "
30156 PRINT"PAPER AND A PENCIL ON THIS OPTION."
30157 PRINT"   [201] WILL BE KEEPING YOUR SCORE.":GOSUB 33000
30160 PRINT"          [206]UMBER OF [208]ROBLEMS"
30162 PRINT"          [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
30165 PRINT"    [217]OU WILL DECIDE HOW MANY PROBLEMS"
30170 PRINT"TO DO.  [201]F YOU CHOOSE OPTION 1, YOU"
30175 PRINT"MAY ONLY HAVE 5 PROBLEMS; OTHERWISE,"
30180 PRINT"YOU MAY HAVE FROM 5 TO 20 PROBLEMS."
30185 GOSUB 33000
30187 GOSUB480:LN=1:TX$="[193]DDING [196]ECIMALS":GOSUB100:GOSUB800
30190 RETURN
33000 REM *** CONTINUE INSTRUCTIONS ***
33005 TX$="[159][169][208]LEASE [208]RESS [211]PACEBAR[146][169]":Y=24:GOSUB990:POKE 198,0
33010 GETWE$:IFWE$<>" "THEN33010
33015 LN=5:GOSUB200:PRINT"":RETURN